
table_CCREM_Full_onlyInterviewed <- list()

table_CCREM_Full_onlyInterviewed[[1]] <- htmlreg(list(model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[1]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[2]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[3]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[4]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[5]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[6]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[7]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[8]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[9]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[10]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[11]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[12]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[13]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[14]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[15]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[16]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[17]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[18]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[19]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[20]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[21]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[22]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[23]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[24]]), 
                                                 custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(1:24)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full_onlyInterviewed[[2]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[25]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[26]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[27]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[28]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[29]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[30]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[31]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[32]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[33]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[34]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[35]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[36]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[37]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[38]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[39]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[40]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[17]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[42]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[19]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[44]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[21]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[46]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[23]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[48]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(25:48)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full_onlyInterviewed[[3]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[49]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[50]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[51]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[52]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[53]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[54]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[55]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[56]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[57]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[58]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[59]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[60]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[61]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[62]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[63]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[64]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[65]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[66]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[67]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[68]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[69]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[70]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[71]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[72]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(49:72)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full_onlyInterviewed[[4]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[73]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[74]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[75]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[76]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[77]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[78]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[79]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[80]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[81]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[82]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[83]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[84]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[85]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[86]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[87]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[88]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[89]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[90]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[91]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[92]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[93]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[94]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[95]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[96]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(73:96)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full_onlyInterviewed[[5]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[97]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[98]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[99]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[100]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[101]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[102]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[103]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[104]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[105]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[106]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[107]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[108]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[109]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[110]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[111]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[112]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[113]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[114]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[115]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[116]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[117]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[118]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[119]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[120]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(97:120)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full_onlyInterviewed[[6]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[121]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[122]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[123]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[124]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[125]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[126]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[127]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[128]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[129]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[130]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[131]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[132]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[133]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[134]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[135]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[136]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[137]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[138]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[139]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[140]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[141]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[142]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[143]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[144]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(121:144)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full_onlyInterviewed[[7]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[145]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[146]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[147]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[148]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[149]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[150]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[151]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[152]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[153]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[154]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[155]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[156]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[157]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[158]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[159]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[160]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[161]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[162]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[163]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[164]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[165]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[166]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[167]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[168]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(145:168)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


table_CCREM_Full_onlyInterviewed[[8]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[169]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[170]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[171]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[172]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[173]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[174]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[175]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[176]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[177]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[178]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[179]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[180]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[181]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[182]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[183]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[184]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[185]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[186]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[187]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[188]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[189]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[190]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[191]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[192]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(169:192)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


table_CCREM_Full_onlyInterviewed[[9]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[193]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[194]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[195]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[196]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[197]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[198]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[199]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[200]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[201]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[202]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[203]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[204]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[205]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[206]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[207]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[208]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[209]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[210]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[211]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[212]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[213]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[214]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[215]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[216]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(193:216)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


table_CCREM_Full_onlyInterviewed[[10]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[217]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[218]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[219]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[220]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[221]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[222]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[223]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[224]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[225]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[226]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[227]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[228]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[229]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[230]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[231]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[232]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[233]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[234]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[235]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[236]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[237]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[238]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[239]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[240]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(217:240)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


table_CCREM_Full_onlyInterviewed[[11]] <- htmlreg(list(
  model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[241]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[242]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[243]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[244]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[245]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[246]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[247]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[248]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[249]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[250]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[251]],model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[252]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[253]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[254]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[255]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[256]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[257]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[258]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[259]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[260]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[261]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[262]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[263]], model_CCREM_Fullcountry_onlyInterviewed$fitCountry[[264]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry_onlyInterviewed$country[c(241:264)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


save(table_CCREM_Full_onlyInterviewed, file = paste0(wdShinyData,"html_list_CCREM_full_onlyInterviewed.Rdata"))

